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BIN PUNCH FOR EXTENDED MEMORY 


DECUS Program Library Write-up DECUS No. 8-310 

ABSTRACT 

This program is useful for simple loading of tested Fortran programs via Binary loader. The 
field instructions for the Binary loader are automatically generated by this program. In one 
field the Binary punch for extended memory shares the core memory with the Binary loader. 

USAGE 

1. Set Data field to field number where the Bin-Punch will be loaded in. 

2. Set instruction field to field number where the Binary Loader resides. 

Note: the number of Data field and the number of instruction field must not be the same. 

3. Set SR to 7777. 

4. Press LOAD ADD key. 

5. Set bit 0 to 0. (For High-speed Reader) 

6. Press START key. 

Trailer will be punched. 

Program stops. 

7. Set SA to number of fields, from which the program will be punched out. 

8. Press CONTINUE key. 

Program stops. 

9. Set SR to number of blocks to be punched in the current field selected by step 11. 

10. Press CONTINUE key. 

Program stops. 

11. Set ST to this number of field (NBR = X) in which the blocks will be punched (SR =00X0). 

12. Press CONTINUE key. 

Program stops. 

13. Set the initial address of the block to be punched into SR. 






14. Press CONTINUE key. 

Program stops. 

15. Set the final address of the block to be punched into SR. 

(Note that the final address must be greater than the initial address.) 

16. Press CONTINUE key. 

The indicated block of data will be punched. • 

If only one block has been called for, the trailer will punch and the program is ready. 

If more than one block has been called for, go back to step 9 or step 13. Continue in this 
manner until the last block of data has been punched. 




/BIN-PUNCH FOR EXTENDED MEMORY 
/l.SR: 7600 
/2. LOAD ADD 
/3. START 

/4.SR: NBR OF FIELDS TO BE PUNCHED 

/5.SR: NBR OF BLOCKS TO BE PUNCHED IN ONE FIELD 

/6.SR (00X0) X= NBR OF MEM.FIELD 

/7.SR: IA OF BLOCK 

/8.SR: FA OF BLOCK 

/9. IF NOT READY, GO TO 5 


7600 

7300 

*START 

BPUN, 

START=7600 

CLA CLL 

760 1 

6026 


PLS 

7602 

3320 


DCA CKSM 

760 3 

4262 


JMS PLOT 

7604 

7402 


HLT 

7605 

7604 


LAS 

7606 

7041 


CIA 

7607 

3332 


DCA NF 

7610 

7402 

BEG, 

HLT 

76 11 

7604 


LAS 

7612 

7041 


CIA 

7613 

3321 


DCA NB 

7614 

1333 


TAD CHANGE 

7615 

7402 


HLT 

7616 

7404 


OSR 

7617 

3227 


DCA DATFLD 

7620 

7402 

NXBL, 

HLT 

7621 

7604 


LAS 

7622 

3322 


DCA IA 

7623 

7402 


HLD 

7624 

7604 


LAS 

7625 

7001 


IAC 

7626 

3323 


DCA FA 

7627 

0000 

DATFLD, 

0 

7630 

6214 


RDF 

7631 

1334 


TAD C300 

7632 

4313 

i 

JMS PUN 

7633 

7200 


CLA 

7634 

1322 


TAD IA 

7635 

7120 


STL 

7636 

4273 

PUNL, 

JMS BINP 

7637 

1322 


TAD IA 

7640 

7041 


CIA 

7641 

1323 


TAD FA 

7642 

7650 


SNA CLA 

7643 

5250 


JMP MOREBL 

7644 

1722 


TAD 1 IA 

7645 

7100 


CLL 


/NBR OF FIELDS IN ST 

/NBR OF BLOCKS,THEY ARE IN ONE 

/FIELD-NBR IN SR 00X0 
/IA IN SR 
/FA IN SR 
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7646 

2322 


ISZ IA 

7647 

5236 


JMP PUNL 

7650 

2321 

MOREBL, 

ISZ NB 

7651 

5220 


JMP NXBL 

7652 

2332 


ISZ NF 

7653 

5210 


JMP BEG 

7654 

1320 


TAD CKSM 

7655 

7100 


CLL 

7656 

4273 


JMS BINP 

7657 

4262 


JMS PLOT 

7660 

7402 


HLT 

7661 

5200 


JMP BPUN 

7662 

0000 

PLOT, 

0 

7663 

7300 


CLA CLL 

7664 

1324 


TAD M212 

7665 

3325 


DCA CTR1 

7666 

1326 


TAD C200 

7667 

4313 


JMS PUN 

7670 

2325 


ISZ CTR1 

7671 

5267 


JMP -2 

7672 

5662 


JMP 1 PLOT 

7673 

0000 

BINP, 

0 

7674 

3327 


DCA TEM1 

7675 

1327 


TAD TEM1 

7676 

7012 


RTR 

7677 

7012 


RTR 

7700 

7012 


RTR 

7701 

0330 


AND SL7 

7702 

4313 


JMS PUN 

770 3 

1320 


TAD CKSM 

770 4 

3320 


DCA CKSM 

7705 

1327 


TAD TEM1 

7706 

0331 


AND SL6 

7707 

4313 


JMS PUN 

7710 

1320 


TAD CKSM 

7711 

3320 


DCA CKSM 

7712 

5673 


JMP 1 BINP 

7713 

0000 

PUN, 

0 

7714 

6021 


PSF 

7715 

5314 


JMP .-1 

7716 

6026 


PLS 

7717 

5713 


JMP 1 PUN 

7720 

0000 

CKSM, 

0 

7721 

0000 

NB, 

0 

7722 

0000 

IA, 

0 

7723 

0000 

FA, 

0 

7724 

7566 

M212, 

-212 

7725 

0000 

CTR1, 

0 

7726 

0200 

C200, 

200 

7727 

0000 

TEM1, 

0 


/TO PUNCH 212 LEADER TR.CODES 

/LEADER TRAILER CODE J 

/PUNCH C(AC) 

/ANOTHER L-T CODE OR NOT? 

/GO PUNCH ANOTHER 
/EXIT 


./FIRST TWO OCTAL DIGITS IN AC 5 
/PUNCH C(AC) 


/LAST TWO OCTAL DIGITS IN AC 6 
/PUNCH C(AC) 


/EXIT 

/ROUTINE TO PUNCH C(AC) 

/AND EXIT WITH C(AC) 

/UNALTERED 

/PUNCH IT 

/EXIT 
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7730 

,0177 

SL7, 

177 

7731 

0077 

SL6, 

77 

7732 

0000 

NF, 

0 

7733 

6201 

CHANGE, 

CDF 

7734 

0300 

C300, 

300 


BEG 

7610 

BINP 

7673 

BPUN 

7600 

CHANGE 

7733 

CKSM 

7720 

CTR1 

7725 

C200 

7726 

C300 

7734 

DATFLD 

7627 

FA 

7723 

IA 

7722 

MOREBL 

7650 

M212 

7724 

NB 

7721 

NF 

7732 

NXBL 

7620 

PLOT 

7662 

PUN 

7713 

PUNL 

7636 

SL6 

7731 

SL7 

7730 

START 

7600 

TEM1 

7727 
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